Group Members - Yu Jing - Lam Kum Yee - Chin Mun Kit - Chang Qian Yi

Objective

library('plotly')
path <- '../../data/DomesticBeer.csv'
df <- read.csv(path)
head(df)
summary(df)
    Brand              Alcohol          Calories    
 Length:128         Min.   : 0.400   Min.   : 70.0  
 Class :character   1st Qu.: 4.475   1st Qu.:130.8  
 Mode  :character   Median : 4.900   Median :150.0  
                    Mean   : 5.198   Mean   :154.0  
                    3rd Qu.: 5.600   3rd Qu.:166.0  
                    Max.   :10.500   Max.   :330.0  
     Carbs      
 Min.   : 2.60  
 1st Qu.: 8.60  
 Median :12.10  
 Mean   :12.15  
 3rd Qu.:14.65  
 Max.   :32.10  
sum(is.na(df))
[1] 0
fig1 <- plot_ly(x = df$Alcohol, type='histogram', name = 'Alcohol')
fig2 <- plot_ly(x = df$Calories, type='histogram', name = 'Calories')
fig3 <- plot_ly(x = df$Carbs, type='histogram', name = 'Carbs')
fig <- subplot(fig1, fig2, fig3, nrows = 3)
fig
fig <- plot_ly(df, y=~Alcohol, type='box', name='Alcohol', jitter=0.3, pointpos = -1.8)
fig <- fig %>% add_trace(y=~Calories, name='Calories')
fig <- fig %>% add_trace(y=~Carbs, name='Carbs')
fig
fig1 <- plot_ly(df, y=~Alcohol, type='box', name='Alcohol %', jitter=0.3, pointpos = -1.8)
fig1
fig2 <- plot_ly(df, y=~Calories, type='box', name='Calories per 12 ounce', jitter=0.3, pointpos = -1.8)
fig2
fig3 <- plot_ly(df, y=~Carbs, type='box', name='Carbs(g) per 12 ounce', jitter=0.3, pointpos = -1.8)
fig3
fig <- plot_ly(df, 
               x = ~Alcohol, 
               y = ~Calories, 
               type='scatter', 
               mode='markers', 
               color = ~Carbs, 
               colors = 'Reds', 
               marker = list(size = ~Carbs, opacity = 0.5),
               hoverinfo = 'text',
               text = ~paste(
                 'Brand:', Brand,
                 '<br>Alcohols:', Alcohol,
                 '<br>Calories:', Calories,
                 '<br>Carbs:', Carbs
                 
                 )
               )
fig
LS0tDQp0aXRsZTogIlNRQjcwMDUgQXNzaWdubWVudCAxIC0gR3JvdXAgMiAoYWRkaXRpb25hbCBwbG90IGZvciB0YXNrIDEpIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KR3JvdXAgTWVtYmVycw0KLSBZdSBKaW5nDQotIExhbSBLdW0gWWVlDQotIENoaW4gTXVuIEtpdA0KLSBDaGFuZyBRaWFuIFlpDQoNCiMgT2JqZWN0aXZlDQotIEFkZGl0aW9uYWwgSW50ZXJhY3RpdmUgUGxvdCB0byBleHBsb3JlLg0KDQpgYGB7cn0NCmxpYnJhcnkoJ3Bsb3RseScpDQpwYXRoIDwtICcuLi8uLi9kYXRhL0RvbWVzdGljQmVlci5jc3YnDQpkZiA8LSByZWFkLmNzdihwYXRoKQ0KaGVhZChkZikNCmBgYA0KDQoNCmBgYHtyfQ0Kc3VtbWFyeShkZikNCmBgYA0KDQpgYGB7cn0NCnN1bShpcy5uYShkZikpDQpgYGANCmBgYHtyfQ0KZmlnMSA8LSBwbG90X2x5KHggPSBkZiRBbGNvaG9sLCB0eXBlPSdoaXN0b2dyYW0nLCBuYW1lID0gJ0FsY29ob2wnKQ0KZmlnMiA8LSBwbG90X2x5KHggPSBkZiRDYWxvcmllcywgdHlwZT0naGlzdG9ncmFtJywgbmFtZSA9ICdDYWxvcmllcycpDQpmaWczIDwtIHBsb3RfbHkoeCA9IGRmJENhcmJzLCB0eXBlPSdoaXN0b2dyYW0nLCBuYW1lID0gJ0NhcmJzJykNCmZpZyA8LSBzdWJwbG90KGZpZzEsIGZpZzIsIGZpZzMsIG5yb3dzID0gMykNCmZpZw0KYGBgDQoNCg0KDQpgYGB7cn0NCmZpZyA8LSBwbG90X2x5KGRmLCB5PX5BbGNvaG9sLCB0eXBlPSdib3gnLCBuYW1lPSdBbGNvaG9sJywgaml0dGVyPTAuMywgcG9pbnRwb3MgPSAtMS44KQ0KZmlnIDwtIGZpZyAlPiUgYWRkX3RyYWNlKHk9fkNhbG9yaWVzLCBuYW1lPSdDYWxvcmllcycpDQpmaWcgPC0gZmlnICU+JSBhZGRfdHJhY2UoeT1+Q2FyYnMsIG5hbWU9J0NhcmJzJykNCmZpZw0KYGBgDQpgYGB7cn0NCmZpZzEgPC0gcGxvdF9seShkZiwgeT1+QWxjb2hvbCwgdHlwZT0nYm94JywgbmFtZT0nQWxjb2hvbCAlJywgaml0dGVyPTAuMywgcG9pbnRwb3MgPSAtMS44KQ0KZmlnMQ0KYGBgDQoNCg0KYGBge3J9DQpmaWcyIDwtIHBsb3RfbHkoZGYsIHk9fkNhbG9yaWVzLCB0eXBlPSdib3gnLCBuYW1lPSdDYWxvcmllcyBwZXIgMTIgb3VuY2UnLCBqaXR0ZXI9MC4zLCBwb2ludHBvcyA9IC0xLjgpDQpmaWcyDQpgYGANCg0KDQpgYGB7cn0NCmZpZzMgPC0gcGxvdF9seShkZiwgeT1+Q2FyYnMsIHR5cGU9J2JveCcsIG5hbWU9J0NhcmJzKGcpIHBlciAxMiBvdW5jZScsIGppdHRlcj0wLjMsIHBvaW50cG9zID0gLTEuOCkNCmZpZzMNCmBgYA0KDQoNCmBgYHtyfQ0KZmlnIDwtIHBsb3RfbHkoZGYsIA0KICAgICAgICAgICAgICAgeCA9IH5BbGNvaG9sLCANCiAgICAgICAgICAgICAgIHkgPSB+Q2Fsb3JpZXMsIA0KICAgICAgICAgICAgICAgdHlwZT0nc2NhdHRlcicsIA0KICAgICAgICAgICAgICAgbW9kZT0nbWFya2VycycsIA0KICAgICAgICAgICAgICAgY29sb3IgPSB+Q2FyYnMsIA0KICAgICAgICAgICAgICAgY29sb3JzID0gJ1JlZHMnLCANCiAgICAgICAgICAgICAgIG1hcmtlciA9IGxpc3Qoc2l6ZSA9IH5DYXJicywgb3BhY2l0eSA9IDAuNSksDQogICAgICAgICAgICAgICBob3ZlcmluZm8gPSAndGV4dCcsDQogICAgICAgICAgICAgICB0ZXh0ID0gfnBhc3RlKA0KICAgICAgICAgICAgICAgICAnQnJhbmQ6JywgQnJhbmQsDQogICAgICAgICAgICAgICAgICc8YnI+QWxjb2hvbHM6JywgQWxjb2hvbCwNCiAgICAgICAgICAgICAgICAgJzxicj5DYWxvcmllczonLCBDYWxvcmllcywNCiAgICAgICAgICAgICAgICAgJzxicj5DYXJiczonLCBDYXJicw0KICAgICAgICAgICAgICAgICANCiAgICAgICAgICAgICAgICAgKQ0KICAgICAgICAgICAgICAgKQ0KZmlnDQpgYGANCg0KDQoNCg==